home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / ums / NewCleanMB_UMS.lha / QuitUMS.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-08  |  258b  |  14 lines
  1. /* quit the currently running default UMS server */
  2.  
  3. libname = "ums.library"
  4.  
  5. if ~show("L", libname) then do
  6.   if ~addlib(libname, 0, -210, 8) then do
  7.     say libname "not found!"
  8.     exit
  9.   end
  10. end
  11.  
  12. say "quitting..."
  13. call UMSServerControl("Quit","default")
  14.